Imports Colegio
Public Class FrmModificarPeriododeLicencia

    Dim eleccion As Integer
    Private Sub BtnBuscarPeriodo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuscarPeriodo.Click
        operacion = 1
        PBuscarPeriodo.Visible = False
        Dim Frm As New FrmBuscarPeriodosdeLicencia
        abrirFormulario(Frm)
        Me.Hide()
    End Sub

    Private Sub FrmModificarPeriododeLicencia_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TxtCodigo.ReadOnly = True
        TxtTitulo.ReadOnly = True
        TxtCapitulo.ReadOnly = True
        TxtArticulo.ReadOnly = True
        MtbFechaAlta.ReadOnly = True
        MtbFechaBaja.ReadOnly = True
        PEleccion.Visible = False
    End Sub

    Private Sub DtpFechaAlta_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles DtpFechaAlta.CloseUp
        MtbFAlta.Text = DtpFechaAlta.Value.Date
    End Sub

    Private Sub DtpFechaBaja_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles DtpFechaBaja.CloseUp
        MtbFBaja.Text = DtpFechaBaja.Value.Date
    End Sub

    Dim result As MsgBoxResult
    Private Sub BtnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
        Dim periodo As New Entidades.EPeriododeLicencia
        Dim periodosneg As New Negocios.NPeriododeLicencia
        Dim band As Boolean

        periodo.Legajo = TxtCodigo.Text
        periodo.Titulo = TxtTitulo.Text
        periodo.Capitulo = TxtCapitulo.Text
        periodo.Articulo = TxtArticulo.Text
        periodo.FechaAlta = MtbFechaAlta.Text
        periodo.FechaBaja = MtbFechaBaja.Text
        periodo.Estado = chequeamos(CkbActivo)
        
        If CkbActivo.Checked = False Then
            result = MsgBox("El estado del periodo esta desactivado, osea que la misma quedara inabilitadda, desea que siga asi?", MsgBoxStyle.OkCancel)
        Else
            PEleccion.Visible = True
            Exit Sub

        End If
        Try
            If result = MsgBoxResult.Ok Then
                band = periodosneg.activarSiNoPeriodoLic(periodo)

                If band Then
                    MsgBox("Eliminacion Exitosa", MsgBoxStyle.Information)
                End If
                Limpiar()
            End If
        Catch ex As Exception
            MsgBox("Eliminacion Fallida." + ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub

    Private Sub Limpiar()

        TxtCodigo.Text = ""
        TxtTitulo.Text = ""
        TxtCapitulo.Text = ""
        TxtArticulo.Text = ""
        MtbFAlta.Text = ""
        MtbFBaja.Text = ""
        MtbFechaAlta.Text = ""
        MtbFechaBaja.Text = ""
        CkbActivo.Checked = False
        TxtCodigo.ReadOnly = True
        TxtTitulo.ReadOnly = True
        TxtCapitulo.ReadOnly = True
        TxtArticulo.ReadOnly = True
        MtbFechaAlta.ReadOnly = True
        MtbFechaBaja.ReadOnly = True
        PBuscarPeriodo.Visible = True
        PEleccion.Visible = False
        eleccion = 0
    End Sub

    Private Sub BtnModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnModificar.Click

        Dim periodo As New Entidades.EPeriododeLicencia
        Dim periodosneg As New Negocios.NPeriododeLicencia
        Dim band As Boolean
        Dim fechaA, fechaB As Date

        periodo.Legajo = TxtCodigo.Text
        periodo.Titulo = TxtTitulo.Text
        periodo.Capitulo = TxtCapitulo.Text
        periodo.Articulo = TxtArticulo.Text
        periodo.FechaAlta = MtbFechaAlta.Text
        periodo.FechaBaja = MtbFechaBaja.Text
        periodo.Estado = chequeamos(CkbActivo)

        If Not IsDate(MtbFAlta.Text) Then
            MsgBox("Debe colocar una fecha valida o seleccionar una", MsgBoxStyle.Exclamation)
            MtbFAlta.Focus()
            Exit Sub
        End If

        If Not IsDate(MtbFBaja.Text) Then
            MsgBox("Debe colocar una fecha valida o seleccionar una", MsgBoxStyle.Exclamation)
            MtbFBaja.Focus()
            Exit Sub
        End If
        Try
            fechaA = MtbFAlta.Text
            fechaB = MtbFBaja.Text
            band = periodosneg.modificarPeriodo(periodo, fechaA, fechaB)

            If band Then
                MsgBox("Modificacion Exitosa", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox("Modificacion Fallida. " + ex.Message, MsgBoxStyle.Exclamation)
        End Try

        Limpiar()
    End Sub

    Private Sub BtnActivar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnActivar.Click
        Dim periodo As New Entidades.EPeriododeLicencia
        Dim periodosneg As New Negocios.NPeriododeLicencia
        Dim band As Boolean

        periodo.Legajo = TxtCodigo.Text
        periodo.Titulo = TxtTitulo.Text
        periodo.Capitulo = TxtCapitulo.Text
        periodo.Articulo = TxtArticulo.Text
        periodo.FechaAlta = MtbFechaAlta.Text
        periodo.FechaBaja = MtbFechaBaja.Text
        periodo.Estado = chequeamos(CkbActivo)

        Try
            band = periodosneg.activarSiNoPeriodoLic(periodo)
            If band Then
                MsgBox("Activacion Exitosa", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox("Activacion Fallida. " + ex.Message, MsgBoxStyle.Exclamation)
        End Try
        
        Limpiar()

    End Sub

   
    Private Sub BtnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancelar.Click
        PEleccion.Visible = False
    End Sub

    Private Sub BtnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCerrar.Click
        Close()
    End Sub
End Class